unit fServerForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClasses,
  Menus, RzTray;

type
  TServerForm = class(TForm)
    RzTrayIcon1: TRzTrayIcon;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ServerForm: TServerForm;

implementation

uses fServerDataModule;




{$R *.dfm}

procedure TServerForm.N1Click(Sender: TObject);
begin
   RzTrayIcon1.RestoreApp;
end;

procedure TServerForm.N2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TServerForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   RzTrayIcon1.MinimizeApp;
   CanClose:=false;
end;

end.
